text2.Text = "The first step for general setup is to choose the subdirectory where your radiograms and/or voicegrams are to be placed. This flexibility is important because you may be using TCP/IP, for example, in which case you'd want the messages to be placed in a \nos\spool\mqueue - type of subdirectory. Please choose the correct subdirectory now by DOUBLE-clicking the mouse in the directory list box to the left."
End Sub
Sub Command3D3_Click ()
command3d5.Visible = True
text2.Visible = True
For i = 0 To 3
picture1(i).Visible = False
Next i
text2.Text = "By now, you must have already performed the 'General Setup'. If not, click on that button now, before continuing with the Radiogram Setup routine. Otherwise, click on the 'Continue' Button"
End Sub
Sub Command3D4_Click ()
command3d4.Visible = False
enablevoice = MsgBox("Do you wish to enable digitized voicegram operation?", 4, "Enable Voicegrams")
Select Case enablevoice 'Voicegrams enabled? If so, enable related controls
Case 6
enablevoice = 6
Case 7
enablevoice = 7
End Select
text2.Text = "Now, click on the 'radiogram setup' button."
End Sub
Sub Command3D5_Click ()
command3d1.Visible = False
command3d2.Visible = False
command3d3.Visible = False
command3d5.Visible = False
dir1.Visible = False
text2.Visible = False
text3.Visible = True
text3.Text = "There are a number of radiogram setup parameters that you should deal with at this point. They include setting the Amateur Radio callsign to be used, the starting message number (if you wish), the city of origin, etc. Please choose the parameter you'd like to set up now, by clicking on the appropriate radio button. At present, a sample of how your radiogram's preamble would look is presented below."
frame3d1.Visible = True
option3d1.Visible = True
option3d2.Visible = True
option3d3.Visible = True
option3d4.Visible = True
command3d6.Visible = True
text4.Visible = True
For i = 0 To 3
picture1(i).Visible = False
Next i
End Sub
Sub Command3D6_Click ()
command3d1.Visible = True
command3d2.Visible = True
command3d3.Visible = True
command3d5.Visible = True
dir1.Visible = True
text2.Visible = True
text3.Visible = False
frame3d1.Visible = False
option3d1.Visible = False
option3d2.Visible = False
option3d3.Visible = False
option3d4.Visible = False
command3d6.Visible = False
'command3d7.Visible = False
End Sub
Sub Dir1_Change ()
command3d4.Visible = True
directory$ = dir1.Path
text2.Text = ("So far, you've chosen " & directory$ & ", which is where your radiograms or voicegrams will placed. If that's correct, click on the 'OK' button. If not, continue choosing the correct subdirectory by DOUBLEclicking. Click on the 'OK' button ONLY when completely satisfied.")
End Sub
Sub Dir1_Click ()
command3d4.Visible = True
directory$ = dir1.Path
text2.Text = ("So far, you've chosen " & directory$ & ", which is where your radiograms or voicegrams will placed. If that's correct, click on the 'OK' button. If not, continue choosing the correct subdirectory by DOUBLEclicking. Click on the 'OK' button ONLY when completely satisfied.")
End Sub
Sub Form_Activate ()
dir1.Visible = False
text2.Visible = False
text2.Text = "The first step for general setup is to choose the subdirectory where your radiograms and/or voicegrams are to be placed. This flexibility is important because you may be using TCP/IP, for example, in which case you'd want the messages to be placed in a \nos\spool\mqueue - type of subdirectory. Please choose the correct subdirectory now."
cityoforigination$ = InputBox$("Enter city and State of radiogram origination -- but remember that there is to be NO punctuation and a USA State abbreviation consists of only two letters." & Chr$(10) & Chr$(10) & Chr$(13) & "A proper example would be 'OKMULGEE OK', rather than 'OKMULGEE, OKLA'", "City Of Origin")
